home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Texty / crackme / keygen.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-18  |  1.6 KB  |  55 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Keygen for webm4sta crackme 1"
  4.    ClientHeight    =   1200
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   1200
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Text1 
  13.       Height          =   375
  14.       Left            =   960
  15.       TabIndex        =   0
  16.       Top             =   120
  17.       Width           =   3615
  18.    End
  19.    Begin VB.Label Label3 
  20.       Caption         =   "Serial :"
  21.       Height          =   375
  22.       Left            =   120
  23.       TabIndex        =   3
  24.       Top             =   720
  25.       Width           =   735
  26.    End
  27.    Begin VB.Label Label2 
  28.       Caption         =   "Name : "
  29.       Height          =   375
  30.       Left            =   120
  31.       TabIndex        =   2
  32.       Top             =   120
  33.       Width           =   735
  34.    End
  35.    Begin VB.Label Label1 
  36.       Appearance      =   0  'Flat
  37.       BackColor       =   &H80000005&
  38.       ForeColor       =   &H80000008&
  39.       Height          =   375
  40.       Left            =   960
  41.       TabIndex        =   1
  42.       Top             =   720
  43.       Width           =   3615
  44.    End
  45. Attribute VB_Name = "Form1"
  46. Attribute VB_GlobalNameSpace = False
  47. Attribute VB_Creatable = False
  48. Attribute VB_PredeclaredId = True
  49. Attribute VB_Exposed = False
  50. Private Sub Text1_Change()
  51. UserName = Text1.Text
  52. Serial = Len(Trim(Str(Val(UserName)))) * 6 + 1452356352 'the keygen routine
  53. Label1.Caption = Serial
  54. End Sub
  55.